home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t4.d64 / joystick.proc < prev    next >
Text File  |  2007-02-28  |  828b  |  37 lines

  1. 9000 // DELETE "0:JOYSTICK.PROC"
  2. 9010 //  BY ├APTAIN ├OMAL AND FRIENDS
  3. 9020 // LIST   "0:JOYSTICK.PROC"
  4. 9030 //  UPDATED VERSION - MATCHES 2.0
  5. 9040 PROC JOYSTICK(PORT,REF DIRECTION,REF FIRE) CLOSED
  6. 9050 IF PORT=1 THEN //        1
  7. 9060 MEM:=PEEK(56321) //   8   2
  8. 9070 ELIF PORT=2 THEN //  7   0   3
  9. 9080 MEM:=PEEK(56320) //   6   4
  10. 9090 ELSE  //                 5
  11. 9100 RETURN // NOT PROPER PORT NUMBER
  12. 9110 ENDIF 
  13. 9120 FIRE:=1-((MEM MOD 32) DIV 16)
  14. 9130 // FILE = TRUE IF PRESSED
  15. 9140 CASE 15-(MEM MOD 16) OF
  16. 9150 WHEN 1
  17. 9160 DIRECTION:=1
  18. 9170 WHEN 2
  19. 9180 DIRECTION:=5
  20. 9190 WHEN 4
  21. 9200 DIRECTION:=7
  22. 9210 WHEN 5
  23. 9220 DIRECTION:=8
  24. 9230 WHEN 6
  25. 9240 DIRECTION:=6
  26. 9250 WHEN 8
  27. 9260 DIRECTION:=3
  28. 9270 WHEN 9
  29. 9280 DIRECTION:=2
  30. 9290 WHEN 10
  31. 9300 DIRECTION:=4
  32. 9310 OTHERWISE 
  33. 9320 DIRECTION:=0
  34. 9330 ENDCASE 
  35. 9340 ENDPROC JOYSTICK
  36. 9350 //
  37.